home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 April: Mac OS SDK / Dev.CD Apr 98 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Universal / Interfaces / AIncludes / MIDI.a < prev    next >
Encoding:
Text File  |  1998-02-12  |  24.4 KB  |  903 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        MIDI.a
  3. ;
  4. ;    Contains:    MIDI Manager Interfaces.
  5. ;
  6. ;    Version:    Technology:    System 7.5
  7. ;                Release:    Universal Interfaces 3.1
  8. ;
  9. ;    Copyright:    © 1988-1998 by Apple Computer, Inc., all rights reserved
  10. ;
  11. ;    Bugs?:        Please include the the file and version information (from above) with
  12. ;                the problem description.  Developers belonging to one of the Apple
  13. ;                developer programs can submit bug reports to:
  14. ;
  15. ;                    devsupport@apple.com
  16. ;
  17. ;
  18.     IF &TYPE('__MIDI__') = 'UNDEFINED' THEN
  19. __MIDI__ SET 1
  20.  
  21.     IF &TYPE('__ERRORS__') = 'UNDEFINED' THEN
  22.     include 'Errors.a'
  23.     ENDIF
  24.     IF &TYPE('__MACTYPES__') = 'UNDEFINED' THEN
  25.     include 'MacTypes.a'
  26.     ENDIF
  27.     IF &TYPE('__MIXEDMODE__') = 'UNDEFINED' THEN
  28.     include 'MixedMode.a'
  29.     ENDIF
  30.  
  31. ; 
  32. ;                        * * *  N O T E  * * * 
  33. ;
  34. ;    This file has been updated to include MIDI 2.0 interfaces.  
  35. ;    
  36. ;    The MIDI 2.0 interfaces were developed for the classic 68K runtime.
  37. ;    Since then, Apple has created the PowerPC and CFM 68K runtimes.
  38. ;    Currently, the extra functions in MIDI 2.0 are not in InterfaceLib
  39. ;    and thus not callable from PowerPC and CFM 68K runtimes (you'll
  40. ;    get a linker error).  
  41. ;
  42.  
  43.  
  44.  
  45. midiMaxNameLen                    EQU        31                    ;maximum number of characters in port and client names
  46.  
  47.                                                             ; Time formats 
  48. midiFormatMSec                    EQU        0                    ;milliseconds
  49. midiFormatBeats                    EQU        1                    ;beats
  50. midiFormat24fpsBit                EQU        2                    ;24 frames/sec.
  51. midiFormat25fpsBit                EQU        3                    ;25 frames/sec.
  52. midiFormat30fpsDBit                EQU        4                    ;30 frames/sec. drop-frame
  53. midiFormat30fpsBit                EQU        5                    ;30 frames/sec.
  54. midiFormat24fpsQF                EQU        6                    ;24 frames/sec. longInt format 
  55. midiFormat25fpsQF                EQU        7                    ;25 frames/sec. longInt format 
  56. midiFormat30fpsDQF                EQU        8                    ;30 frames/sec. drop-frame longInt format 
  57. midiFormat30fpsQF                EQU        9                    ;30 frames/sec. longInt format 
  58.  
  59. midiInternalSync                EQU        0                    ;internal sync
  60. midiExternalSync                EQU        1                    ;external sync
  61.  
  62.                                                             ; Port types
  63. midiPortTypeTime                EQU        0                    ;time port
  64. midiPortTypeInput                EQU        1                    ;input port
  65. midiPortTypeOutput                EQU        2                    ;output port
  66. midiPortTypeTimeInv                EQU        3                    ;invisible time port
  67. midiPortInvisible                EQU        $8000                ;logical OR this to other types to make invisible ports
  68. midiPortTypeMask                EQU        $0007                ;logical AND with this to convert new port types to old, i.e. to strip the property bits
  69.  
  70.                                                             ; OffsetTimes  
  71. midiGetEverything                EQU        $7FFFFFFF            ;get all packets, regardless of time stamps
  72. midiGetNothing                    EQU        $80000000            ;get no packets, regardless of time stamps
  73. midiGetCurrent                    EQU        $00000000            ;get current packets only
  74. ;     MIDI data and messages are passed in MIDIPacket records (see below).
  75. ;    The first byte of every MIDIPacket contains a set of flags
  76. ;
  77. ;    bits 0-1    00 = new MIDIPacket, not continued
  78. ;                     01 = begining of continued MIDIPacket
  79. ;                     10 = end of continued MIDIPacket
  80. ;                     11 = continuation
  81. ;    bits 2-3     reserved
  82. ;
  83. ;    bits 4-6      000 = packet contains MIDI data
  84. ;
  85. ;                  001 = packet contains MIDI Manager message
  86. ;
  87. ;    bit 7         0 = MIDIPacket has valid stamp
  88. ;                  1 = stamp with current clock
  89. ;
  90.  
  91.  
  92. midiContMask                    EQU        $03
  93. midiNoCont                        EQU        $00
  94. midiStartCont                    EQU        $01
  95. midiMidCont                        EQU        $03
  96. midiEndCont                        EQU        $02
  97. midiTypeMask                    EQU        $70
  98. midiMsgType                        EQU        $00
  99. midiMgrType                        EQU        $10
  100. midiTimeStampMask                EQU        $80
  101. midiTimeStampCurrent            EQU        $80
  102. midiTimeStampValid                EQU        $00
  103.  
  104.                                                             ; MIDIPacket command words (the first word in the data field for midiMgrType messages) 
  105. midiOverflowErr                    EQU        $0001
  106. midiSCCErr                        EQU        $0002
  107. midiPacketErr                    EQU        $0003                ;all command words less than this value are error indicators
  108. midiMaxErr                        EQU        $00FF
  109.  
  110.                                                             ; Valid results to be returned by readHooks 
  111. midiKeepPacket                    EQU        0
  112. midiMorePacket                    EQU        1
  113. midiNoMorePacket                EQU        2
  114. midiHoldPacket                    EQU        3
  115.  
  116.                                                             ; Driver calls 
  117. midiOpenDriver                    EQU        1
  118. midiCloseDriver                    EQU        2
  119.  
  120. mdvrAbortNotesOff                EQU        0                    ;abort previous mdvrNotesOff request
  121. mdvrChanNotesOff                EQU        1                    ;generate channel note off messages
  122. mdvrAllNotesOff                    EQU        2                    ;generate all note off messages
  123.  
  124. mdvrStopOut                        EQU        0                    ;stop calling MDVROut temporarily
  125. mdvrStartOut                    EQU        1                    ;resume calling MDVROut
  126. MIDIPacket                RECORD 0
  127. flags                     ds.b    1                ; offset: $0 (0)
  128. len                         ds.b    1                ; offset: $1 (1)
  129. tStamp                     ds.l    1                ; offset: $2 (2)
  130. data                     ds.b    249                ; offset: $6 (6)
  131.                          ORG 256
  132. sizeof                     EQU *                    ; size:   $100 (256)
  133.                         ENDR
  134. ; typedef struct MIDIPacket *            MIDIPacketPtr
  135.  
  136. MIDIClkInfo                RECORD 0
  137. syncType                 ds.w    1                ; offset: $0 (0)        ; synchronization external/internal
  138. curTime                     ds.l    1                ; offset: $2 (2)        ; current value of port's clock
  139. format                     ds.w    1                ; offset: $6 (6)        ; time code format
  140. sizeof                     EQU *                    ; size:   $8 (8)
  141.                         ENDR
  142. MIDIIDRec                RECORD 0
  143. clientID                 ds.l    1                ; offset: $0 (0)
  144. portID                     ds.l    1                ; offset: $4 (4)
  145. sizeof                     EQU *                    ; size:   $8 (8)
  146.                         ENDR
  147. MIDIPortInfo            RECORD 0
  148. portType                 ds.w    1                ; offset: $0 (0)        ; type of port
  149. timeBase                 ds        MIDIIDRec        ; offset: $2 (2)        ; MIDIIDRec for time base
  150. numConnects                 ds.w    1                ; offset: $A (10)        ; number of connections
  151. cList                     ds        MIDIIDRec        ; offset: $C (12) <-- really an array of length one ; ARRAY [1..numConnects] of MIDIIDRec
  152. sizeof                     EQU *                    ; size:   $14 (20)
  153.                         ENDR
  154. ; typedef struct MIDIPortInfo *            MIDIPortInfoPtr
  155.  
  156. ; typedef MIDIPortInfoPtr *                MIDIPortInfoHdl
  157.  
  158. ; typedef MIDIPortInfoPtr *                MIDIPortInfoHandle
  159.  
  160. MIDIPortParams            RECORD 0
  161. portID                     ds.l    1                ; offset: $0 (0)        ; ID of port, unique within client
  162. portType                 ds.w    1                ; offset: $4 (4)        ; Type of port - input, output, time, etc.
  163. timeBase                 ds.w    1                ; offset: $6 (6)        ; refnum of time base, 0 if none
  164. offsetTime                 ds.l    1                ; offset: $8 (8)        ; offset for current time stamps
  165. readHook                 ds.l    1                ; offset: $C (12)        ; routine to call when input data is valid
  166. refCon                     ds.l    1                ; offset: $10 (16)        ; refcon for port (for client use)
  167. initClock                 ds        MIDIClkInfo        ; offset: $14 (20)        ; initial settings for a time base
  168. name                     ds        Str255            ; offset: $1C (28)        ; name of the port, This is a real live string, not a ptr.
  169. sizeof                     EQU *                    ; size:   $11C (284)
  170.                         ENDR
  171. ; typedef struct MIDIPortParams *        MIDIPortParamsPtr
  172.  
  173. MIDIIDList                RECORD 0
  174. numIDs                     ds.w    1                ; offset: $0 (0)
  175. list                     ds.l    1                ; offset: $2 (2) <-- really an array of length one
  176. sizeof                     EQU *                    ; size:   $6 (6)
  177.                         ENDR
  178. ; typedef struct MIDIIDList *            MIDIIDListPtr
  179.  
  180. ; typedef MIDIIDListPtr *                MIDIIDListHdl
  181.  
  182. ; typedef MIDIIDListPtr *                MIDIIDListHandle
  183.  
  184. ;  MDVR Control structs
  185. MDVRInCtlRec            RECORD 0
  186. timeCodeClock             ds.w    1                ; offset: $0 (0)        ; refnum of time base for time code
  187. timeCodeFormat             ds.w    1                ; offset: $2 (2)        ; format of time code output
  188. readProc                 ds.l    1                ; offset: $4 (4)        ; proc to call with intput characters
  189. commProc                 ds.l    1                ; offset: $8 (8)        ; proc to call for handshaking
  190. refCon                     ds.l    1                ; offset: $C (12)        ; refCon passed to readProc, commProc
  191. sizeof                     EQU *                    ; size:   $10 (16)
  192.                         ENDR
  193. ; typedef struct MDVRInCtlRec *            MDVRInCtlPtr
  194.  
  195. MDVROutCtlRec            RECORD 0
  196. timeCodeClock             ds.w    1                ; offset: $0 (0)        ; time base driven by time code
  197. timeCodeFormat             ds.w    1                ; offset: $2 (2)        ; format of time code to listen to
  198. timeCodeProc             ds.l    1                ; offset: $4 (4)        ; proc called on time code fmt change
  199. commProc                 ds.l    1                ; offset: $8 (8)        ; proc called for handshaking
  200. refCon                     ds.l    1                ; offset: $C (12)        ; refCon passed to timeCodeProc
  201. timeCodeFilter             ds.b    1                ; offset: $10 (16)        ; filter time code if true
  202. padding                     ds.b    1                ; offset: $11 (17)        ; unused pad byte
  203. midiMsgTicks             ds.l    1                ; offset: $12 (18)        ; value of Ticks when MIDI msg rcvd
  204. timeCodeTicks             ds.l    1                ; offset: $16 (22)        ; value of Ticks when time code rcvd
  205. sizeof                     EQU *                    ; size:   $1A (26)
  206.                         ENDR
  207. ; typedef struct MDVROutCtlRec *        MDVROutCtlPtr
  208.  
  209. ; typedef void *                        MDVRPtr
  210.  
  211. ;
  212. ; pascal NumVersion MIDIVersion(void )
  213. ;
  214.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  215.         Macro
  216.         _MIDIVersion
  217.             move.l              #$00000004,D0
  218.             dc.w                $A800
  219.         EndM
  220.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  221.         IMPORT_CFM_FUNCTION MIDIVersion
  222.     ENDIF
  223.  
  224. ;
  225. ; pascal OSErr MIDISignIn(OSType clientID, long refCon, Handle icon, ConstStr255Param name)
  226. ;
  227.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  228.         Macro
  229.         _MIDISignIn
  230.             move.l              #$00040004,D0
  231.             dc.w                $A800
  232.         EndM
  233.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  234.         IMPORT_CFM_FUNCTION MIDISignIn
  235.     ENDIF
  236.  
  237. ;
  238. ; pascal void MIDISignOut(OSType clientID)
  239. ;
  240.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  241.         Macro
  242.         _MIDISignOut
  243.             move.l              #$00080004,D0
  244.             dc.w                $A800
  245.         EndM
  246.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  247.         IMPORT_CFM_FUNCTION MIDISignOut
  248.     ENDIF
  249.  
  250. ;
  251. ; pascal MIDIIDListHandle MIDIGetClients(void )
  252. ;
  253.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  254.         Macro
  255.         _MIDIGetClients
  256.             move.l              #$000C0004,D0
  257.             dc.w                $A800
  258.         EndM
  259.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  260.         IMPORT_CFM_FUNCTION MIDIGetClients
  261.     ENDIF
  262.  
  263. ;
  264. ; pascal void MIDIGetClientName(OSType clientID, Str255 name)
  265. ;
  266.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  267.         Macro
  268.         _MIDIGetClientName
  269.             move.l              #$00100004,D0
  270.             dc.w                $A800
  271.         EndM
  272.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  273.         IMPORT_CFM_FUNCTION MIDIGetClientName
  274.     ENDIF
  275.  
  276. ;
  277. ; pascal void MIDISetClientName(OSType clientID, ConstStr255Param name)
  278. ;
  279.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  280.         Macro
  281.         _MIDISetClientName
  282.             move.l              #$00140004,D0
  283.             dc.w                $A800
  284.         EndM
  285.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  286.         IMPORT_CFM_FUNCTION MIDISetClientName
  287.     ENDIF
  288.  
  289. ;
  290. ; pascal MIDIIDListHandle MIDIGetPorts(OSType clientID)
  291. ;
  292.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  293.         Macro
  294.         _MIDIGetPorts
  295.             move.l              #$00180004,D0
  296.             dc.w                $A800
  297.         EndM
  298.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  299.         IMPORT_CFM_FUNCTION MIDIGetPorts
  300.     ENDIF
  301.  
  302. ;
  303. ; pascal OSErr MIDIAddPort(OSType clientID, short BufSize, short *refnum, MIDIPortParamsPtr init)
  304. ;
  305.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  306.         Macro
  307.         _MIDIAddPort
  308.             move.l              #$001C0004,D0
  309.             dc.w                $A800
  310.         EndM
  311.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  312.         IMPORT_CFM_FUNCTION MIDIAddPort
  313.     ENDIF
  314.  
  315. ;
  316. ; pascal MIDIPortInfoHandle MIDIGetPortInfo(OSType clientID, OSType portID)
  317. ;
  318.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  319.         Macro
  320.         _MIDIGetPortInfo
  321.             move.l              #$00200004,D0
  322.             dc.w                $A800
  323.         EndM
  324.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  325.         IMPORT_CFM_FUNCTION MIDIGetPortInfo
  326.     ENDIF
  327.  
  328. ;
  329. ; pascal OSErr MIDIConnectData(OSType srcClID, OSType srcPortID, OSType dstClID, OSType dstPortID)
  330. ;
  331.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  332.         Macro
  333.         _MIDIConnectData
  334.             move.l              #$00240004,D0
  335.             dc.w                $A800
  336.         EndM
  337.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  338.         IMPORT_CFM_FUNCTION MIDIConnectData
  339.     ENDIF
  340.  
  341. ;
  342. ; pascal OSErr MIDIUnConnectData(OSType srcClID, OSType srcPortID, OSType dstClID, OSType dstPortID)
  343. ;
  344.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  345.         Macro
  346.         _MIDIUnConnectData
  347.             move.l              #$00280004,D0
  348.             dc.w                $A800
  349.         EndM
  350.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  351.         IMPORT_CFM_FUNCTION MIDIUnConnectData
  352.     ENDIF
  353.  
  354. ;
  355. ; pascal OSErr MIDIConnectTime(OSType srcClID, OSType srcPortID, OSType dstClID, OSType dstPortID)
  356. ;
  357.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  358.         Macro
  359.         _MIDIConnectTime
  360.             move.l              #$002C0004,D0
  361.             dc.w                $A800
  362.         EndM
  363.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  364.         IMPORT_CFM_FUNCTION MIDIConnectTime
  365.     ENDIF
  366.  
  367. ;
  368. ; pascal OSErr MIDIUnConnectTime(OSType srcClID, OSType srcPortID, OSType dstClID, OSType dstPortID)
  369. ;
  370.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  371.         Macro
  372.         _MIDIUnConnectTime
  373.             move.l              #$00300004,D0
  374.             dc.w                $A800
  375.         EndM
  376.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  377.         IMPORT_CFM_FUNCTION MIDIUnConnectTime
  378.     ENDIF
  379.  
  380. ;
  381. ; pascal void MIDIFlush(short refnum)
  382. ;
  383.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  384.         Macro
  385.         _MIDIFlush
  386.             move.l              #$00340004,D0
  387.             dc.w                $A800
  388.         EndM
  389.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  390.         IMPORT_CFM_FUNCTION MIDIFlush
  391.     ENDIF
  392.  
  393. ;
  394. ; pascal ProcPtr MIDIGetReadHook(short refnum)
  395. ;
  396.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  397.         Macro
  398.         _MIDIGetReadHook
  399.             move.l              #$00380004,D0
  400.             dc.w                $A800
  401.         EndM
  402.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  403.         IMPORT_CFM_FUNCTION MIDIGetReadHook
  404.     ENDIF
  405.  
  406. ;
  407. ; pascal void MIDISetReadHook(short refnum, ProcPtr hook)
  408. ;
  409.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  410.         Macro
  411.         _MIDISetReadHook
  412.             move.l              #$003C0004,D0
  413.             dc.w                $A800
  414.         EndM
  415.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  416.         IMPORT_CFM_FUNCTION MIDISetReadHook
  417.     ENDIF
  418.  
  419. ;
  420. ; pascal void MIDIGetPortName(OSType clientID, OSType portID, Str255 name)
  421. ;
  422.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  423.         Macro
  424.         _MIDIGetPortName
  425.             move.l              #$00400004,D0
  426.             dc.w                $A800
  427.         EndM
  428.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  429.         IMPORT_CFM_FUNCTION MIDIGetPortName
  430.     ENDIF
  431.  
  432. ;
  433. ; pascal void MIDISetPortName(OSType clientID, OSType portID, ConstStr255Param name)
  434. ;
  435.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  436.         Macro
  437.         _MIDISetPortName
  438.             move.l              #$00440004,D0
  439.             dc.w                $A800
  440.         EndM
  441.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  442.         IMPORT_CFM_FUNCTION MIDISetPortName
  443.     ENDIF
  444.  
  445. ;
  446. ; pascal void MIDIWakeUp(short refnum, long time, long period, MIDITimeUPP timeProc)
  447. ;
  448.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  449.         Macro
  450.         _MIDIWakeUp
  451.             move.l              #$00480004,D0
  452.             dc.w                $A800
  453.         EndM
  454.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  455.         IMPORT_CFM_FUNCTION MIDIWakeUp
  456.     ENDIF
  457.  
  458. ;
  459. ; pascal void MIDIRemovePort(short refnum)
  460. ;
  461.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  462.         Macro
  463.         _MIDIRemovePort
  464.             move.l              #$004C0004,D0
  465.             dc.w                $A800
  466.         EndM
  467.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  468.         IMPORT_CFM_FUNCTION MIDIRemovePort
  469.     ENDIF
  470.  
  471. ;
  472. ; pascal short MIDIGetSync(short refnum)
  473. ;
  474.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  475.         Macro
  476.         _MIDIGetSync
  477.             move.l              #$00500004,D0
  478.             dc.w                $A800
  479.         EndM
  480.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  481.         IMPORT_CFM_FUNCTION MIDIGetSync
  482.     ENDIF
  483.  
  484. ;
  485. ; pascal void MIDISetSync(short refnum, short sync)
  486. ;
  487.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  488.         Macro
  489.         _MIDISetSync
  490.             move.l              #$00540004,D0
  491.             dc.w                $A800
  492.         EndM
  493.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  494.         IMPORT_CFM_FUNCTION MIDISetSync
  495.     ENDIF
  496.  
  497. ;
  498. ; pascal long MIDIGetCurTime(short refnum)
  499. ;
  500.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  501.         Macro
  502.         _MIDIGetCurTime
  503.             move.l              #$00580004,D0
  504.             dc.w                $A800
  505.         EndM
  506.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  507.         IMPORT_CFM_FUNCTION MIDIGetCurTime
  508.     ENDIF
  509.  
  510. ;
  511. ; pascal void MIDISetCurTime(short refnum, long time)
  512. ;
  513.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  514.         Macro
  515.         _MIDISetCurTime
  516.             move.l              #$005C0004,D0
  517.             dc.w                $A800
  518.         EndM
  519.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  520.         IMPORT_CFM_FUNCTION MIDISetCurTime
  521.     ENDIF
  522.  
  523. ;
  524. ; pascal void MIDIStartTime(short refnum)
  525. ;
  526.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  527.         Macro
  528.         _MIDIStartTime
  529.             move.l              #$00600004,D0
  530.             dc.w                $A800
  531.         EndM
  532.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  533.         IMPORT_CFM_FUNCTION MIDIStartTime
  534.     ENDIF
  535.  
  536. ;
  537. ; pascal void MIDIStopTime(short refnum)
  538. ;
  539.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  540.         Macro
  541.         _MIDIStopTime
  542.             move.l              #$00640004,D0
  543.             dc.w                $A800
  544.         EndM
  545.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  546.         IMPORT_CFM_FUNCTION MIDIStopTime
  547.     ENDIF
  548.  
  549. ;
  550. ; pascal void MIDIPoll(short refnum, long offsetTime)
  551. ;
  552.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  553.         Macro
  554.         _MIDIPoll
  555.             move.l              #$00680004,D0
  556.             dc.w                $A800
  557.         EndM
  558.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  559.         IMPORT_CFM_FUNCTION MIDIPoll
  560.     ENDIF
  561.  
  562. ;
  563. ; pascal OSErr MIDIWritePacket(short refnum, MIDIPacketPtr packet)
  564. ;
  565.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  566.         Macro
  567.         _MIDIWritePacket
  568.             move.l              #$006C0004,D0
  569.             dc.w                $A800
  570.         EndM
  571.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  572.         IMPORT_CFM_FUNCTION MIDIWritePacket
  573.     ENDIF
  574.  
  575. ;
  576. ; pascal Boolean MIDIWorldChanged(OSType clientID)
  577. ;
  578.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  579.         Macro
  580.         _MIDIWorldChanged
  581.             move.l              #$00700004,D0
  582.             dc.w                $A800
  583.         EndM
  584.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  585.         IMPORT_CFM_FUNCTION MIDIWorldChanged
  586.     ENDIF
  587.  
  588. ;
  589. ; pascal long MIDIGetOffsetTime(short refnum)
  590. ;
  591.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  592.         Macro
  593.         _MIDIGetOffsetTime
  594.             move.l              #$00740004,D0
  595.             dc.w                $A800
  596.         EndM
  597.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  598.         IMPORT_CFM_FUNCTION MIDIGetOffsetTime
  599.     ENDIF
  600.  
  601. ;
  602. ; pascal void MIDISetOffsetTime(short refnum, long offsetTime)
  603. ;
  604.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  605.         Macro
  606.         _MIDISetOffsetTime
  607.             move.l              #$00780004,D0
  608.             dc.w                $A800
  609.         EndM
  610.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  611.         IMPORT_CFM_FUNCTION MIDISetOffsetTime
  612.     ENDIF
  613.  
  614. ;
  615. ; pascal long MIDIConvertTime(short srcFormat, short dstFormat, long time)
  616. ;
  617.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  618.         Macro
  619.         _MIDIConvertTime
  620.             move.l              #$007C0004,D0
  621.             dc.w                $A800
  622.         EndM
  623.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  624.         IMPORT_CFM_FUNCTION MIDIConvertTime
  625.     ENDIF
  626.  
  627. ;
  628. ; pascal long MIDIGetRefCon(short refnum)
  629. ;
  630.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  631.         Macro
  632.         _MIDIGetRefCon
  633.             move.l              #$00800004,D0
  634.             dc.w                $A800
  635.         EndM
  636.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  637.         IMPORT_CFM_FUNCTION MIDIGetRefCon
  638.     ENDIF
  639.  
  640. ;
  641. ; pascal void MIDISetRefCon(short refnum, long refCon)
  642. ;
  643.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  644.         Macro
  645.         _MIDISetRefCon
  646.             move.l              #$00840004,D0
  647.             dc.w                $A800
  648.         EndM
  649.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  650.         IMPORT_CFM_FUNCTION MIDISetRefCon
  651.     ENDIF
  652.  
  653. ;
  654. ; pascal long MIDIGetClRefCon(OSType clientID)
  655. ;
  656.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  657.         Macro
  658.         _MIDIGetClRefCon
  659.             move.l              #$00880004,D0
  660.             dc.w                $A800
  661.         EndM
  662.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  663.         IMPORT_CFM_FUNCTION MIDIGetClRefCon
  664.     ENDIF
  665.  
  666. ;
  667. ; pascal void MIDISetClRefCon(OSType clientID, long refCon)
  668. ;
  669.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  670.         Macro
  671.         _MIDISetClRefCon
  672.             move.l              #$008C0004,D0
  673.             dc.w                $A800
  674.         EndM
  675.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  676.         IMPORT_CFM_FUNCTION MIDISetClRefCon
  677.     ENDIF
  678.  
  679. ;
  680. ; pascal short MIDIGetTCFormat(short refnum)
  681. ;
  682.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  683.         Macro
  684.         _MIDIGetTCFormat
  685.             move.l              #$00900004,D0
  686.             dc.w                $A800
  687.         EndM
  688.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  689.         IMPORT_CFM_FUNCTION MIDIGetTCFormat
  690.     ENDIF
  691.  
  692. ;
  693. ; pascal void MIDISetTCFormat(short refnum, short format)
  694. ;
  695.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  696.         Macro
  697.         _MIDISetTCFormat
  698.             move.l              #$00940004,D0
  699.             dc.w                $A800
  700.         EndM
  701.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  702.         IMPORT_CFM_FUNCTION MIDISetTCFormat
  703.     ENDIF
  704.  
  705. ;
  706. ; pascal void MIDISetRunRate(short refnum, short rate, long time)
  707. ;
  708.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  709.         Macro
  710.         _MIDISetRunRate
  711.             move.l              #$00980004,D0
  712.             dc.w                $A800
  713.         EndM
  714.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  715.         IMPORT_CFM_FUNCTION MIDISetRunRate
  716.     ENDIF
  717.  
  718. ;
  719. ; pascal Handle MIDIGetClientIcon(OSType clientID)
  720. ;
  721.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  722.         Macro
  723.         _MIDIGetClientIcon
  724.             move.l              #$009C0004,D0
  725.             dc.w                $A800
  726.         EndM
  727.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  728.         IMPORT_CFM_FUNCTION MIDIGetClientIcon
  729.     ENDIF
  730.  
  731. ;
  732. ; pascal ProcPtr MIDICallAddress(short callNum)
  733. ;
  734.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  735.         Macro
  736.         _MIDICallAddress
  737.             move.l              #$00A40004,D0
  738.             dc.w                $A800
  739.         EndM
  740.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  741.         IMPORT_CFM_FUNCTION MIDICallAddress
  742.     ENDIF
  743.  
  744. ;
  745. ; pascal void MIDISetConnectionProc(short refNum, ProcPtr connectionProc, long refCon)
  746. ;
  747.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  748.         Macro
  749.         _MIDISetConnectionProc
  750.             move.l              #$00A80004,D0
  751.             dc.w                $A800
  752.         EndM
  753.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  754.         IMPORT_CFM_FUNCTION MIDISetConnectionProc
  755.     ENDIF
  756.  
  757. ;
  758. ; pascal void MIDIGetConnectionProc(short refnum, ProcPtr *connectionProc, long *refCon)
  759. ;
  760.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  761.         Macro
  762.         _MIDIGetConnectionProc
  763.             move.l              #$00AC0004,D0
  764.             dc.w                $A800
  765.         EndM
  766.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  767.         IMPORT_CFM_FUNCTION MIDIGetConnectionProc
  768.     ENDIF
  769.  
  770. ;
  771. ; pascal void MIDIDiscardPacket(short refnum, MIDIPacketPtr packet)
  772. ;
  773.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  774.         Macro
  775.         _MIDIDiscardPacket
  776.             move.l              #$00B00004,D0
  777.             dc.w                $A800
  778.         EndM
  779.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  780.         IMPORT_CFM_FUNCTION MIDIDiscardPacket
  781.     ENDIF
  782.  
  783. ;
  784. ; pascal OSErr MDVRSignIn(OSType clientID, long refCon, Handle icon, Str255 name)
  785. ;
  786.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  787.         Macro
  788.         _MDVRSignIn
  789.             move.l              #$00B40004,D0
  790.             dc.w                $A800
  791.         EndM
  792.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  793.         IMPORT_CFM_FUNCTION MDVRSignIn
  794.     ENDIF
  795.  
  796. ;
  797. ; pascal void MDVRSignOut(OSType clientID)
  798. ;
  799.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  800.         Macro
  801.         _MDVRSignOut
  802.             move.l              #$00B80004,D0
  803.             dc.w                $A800
  804.         EndM
  805.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  806.         IMPORT_CFM_FUNCTION MDVRSignOut
  807.     ENDIF
  808.  
  809. ;
  810. ; pascal MDVRPtr MDVROpen(short portType, short refnum)
  811. ;
  812.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  813.         Macro
  814.         _MDVROpen
  815.             move.l              #$00BC0004,D0
  816.             dc.w                $A800
  817.         EndM
  818.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  819.         IMPORT_CFM_FUNCTION MDVROpen
  820.     ENDIF
  821.  
  822. ;
  823. ; pascal void MDVRClose(MDVRPtr driverPtr)
  824. ;
  825.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  826.         Macro
  827.         _MDVRClose
  828.             move.l              #$00C00004,D0
  829.             dc.w                $A800
  830.         EndM
  831.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  832.         IMPORT_CFM_FUNCTION MDVRClose
  833.     ENDIF
  834.  
  835. ;
  836. ; pascal void MDVRControlIn(MDVRPtr portPtr, MDVRInCtlPtr inputCtl)
  837. ;
  838.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  839.         Macro
  840.         _MDVRControlIn
  841.             move.l              #$00C40004,D0
  842.             dc.w                $A800
  843.         EndM
  844.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  845.         IMPORT_CFM_FUNCTION MDVRControlIn
  846.     ENDIF
  847.  
  848. ;
  849. ; pascal void MDVRControlOut(MDVRPtr portPtr, MDVROutCtlPtr outputCtl)
  850. ;
  851.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  852.         Macro
  853.         _MDVRControlOut
  854.             move.l              #$00C80004,D0
  855.             dc.w                $A800
  856.         EndM
  857.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  858.         IMPORT_CFM_FUNCTION MDVRControlOut
  859.     ENDIF
  860.  
  861. ;
  862. ; pascal void MDVRIn(MDVRPtr portPtr)
  863. ;
  864.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  865.         Macro
  866.         _MDVRIn
  867.             move.l              #$00CC0004,D0
  868.             dc.w                $A800
  869.         EndM
  870.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  871.         IMPORT_CFM_FUNCTION MDVRIn
  872.     ENDIF
  873.  
  874. ;
  875. ; pascal void MDVROut(MDVRPtr portPtr, char *dataPtr, short length)
  876. ;
  877.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  878.         Macro
  879.         _MDVROut
  880.             move.l              #$00D00004,D0
  881.             dc.w                $A800
  882.         EndM
  883.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  884.         IMPORT_CFM_FUNCTION MDVROut
  885.     ENDIF
  886.  
  887. ;
  888. ; pascal void MDVRNotesOff(MDVRPtr portPtr, short mode)
  889. ;
  890.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  891.         Macro
  892.         _MDVRNotesOff
  893.             move.l              #$00D40004,D0
  894.             dc.w                $A800
  895.         EndM
  896.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  897.         IMPORT_CFM_FUNCTION MDVRNotesOff
  898.     ENDIF
  899.  
  900.  
  901.     ENDIF ; __MIDI__ 
  902.  
  903.